home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / buttons / toolb160 / mkbitmap / seldir.frm < prev   
Text File  |  1994-06-29  |  3KB  |  97 lines
  1. VERSION 2.00
  2. Begin Form frmSelDir 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Select a bitmap directory"
  5.    ClientHeight    =   2535
  6.    ClientLeft      =   1905
  7.    ClientTop       =   2520
  8.    ClientWidth     =   5745
  9.    Height          =   2940
  10.    Left            =   1845
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   169
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   383
  15.    Top             =   2175
  16.    Width           =   5865
  17.    Begin FileListBox filFiles 
  18.       Enabled         =   0   'False
  19.       Height          =   2175
  20.       Left            =   2160
  21.       Pattern         =   "*.bmp"
  22.       TabIndex        =   4
  23.       Top             =   180
  24.       Width           =   1920
  25.    End
  26.    Begin DirListBox dirDirectory 
  27.       Height          =   1830
  28.       Left            =   120
  29.       TabIndex        =   3
  30.       Top             =   540
  31.       Width           =   1920
  32.    End
  33.    Begin DriveListBox drvDrive 
  34.       Height          =   315
  35.       Left            =   120
  36.       TabIndex        =   2
  37.       Top             =   180
  38.       Width           =   1920
  39.    End
  40.    Begin CommandButton cmdCancel 
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "&Cancel"
  43.       Height          =   435
  44.       Left            =   4320
  45.       TabIndex        =   1
  46.       Top             =   1980
  47.       Width           =   1335
  48.    End
  49.    Begin CommandButton cmdOk 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "&Ok"
  52.       Default         =   -1  'True
  53.       Height          =   435
  54.       Left            =   4320
  55.       TabIndex        =   0
  56.       Top             =   1440
  57.       Width           =   1335
  58.    End
  59. End
  60. Option Explicit
  61.  
  62. Sub cmdCancel_Click ()
  63.     Unload Me
  64. End Sub
  65.  
  66. Sub cmdOk_Click ()
  67.     gsBitmapDir = dirDirectory.Path
  68.     If Right$(gsBitmapDir, 1) <> "\" Then gsBitmapDir = gsBitmapDir & "\"
  69.     Unload Me
  70. End Sub
  71.  
  72. Sub dirDirectory_Change ()
  73.     filFiles.Path = dirDirectory.Path
  74. End Sub
  75.  
  76. Sub drvDrive_Change ()
  77.     On Local Error Resume Next
  78.     dirDirectory.Path = drvDrive.Drive
  79.     If Err Then
  80.         Beep
  81.         drvDrive.Drive = Left$(dirDirectory.Path, 2)
  82.     End If
  83. End Sub
  84.  
  85. Sub filFiles_PathChange ()
  86.     cmdOk.Enabled = (filFiles.ListCount > 0)
  87. End Sub
  88.  
  89. Sub Form_Load ()
  90.     If gsBitmapDir <> "" Then
  91.         On Local Error Resume Next
  92.         drvDrive.Drive = Left$(gsBitmapDir, 2)
  93.         dirDirectory.Path = gsBitmapDir
  94.     End If
  95. End Sub
  96.  
  97.